home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / misc / zpoint_3_14.lha / zpoint-3.14 / Rexx / FindNextNew.zprx < prev    next >
Text File  |  1995-03-09  |  915b  |  30 lines
  1. /*
  2.     $VER: FindNextNew.zprx 1.3 (31.1.94) by Ralph Seichter
  3.     ARexx script for Zodiac's Point 3.7.
  4.  
  5.     This script jumps into the board list and locates the
  6.     next board containing new messages (if any) and then
  7.     moves into this board. I suggest you to bind this script
  8.     to an F-Key, e.g. by adding the entry
  9.  
  10.         F1:SYS:Rexxc/RX ZP:Rexx/FindNextNew.zprx %s
  11.  
  12.     to your "fkeys.zp" file.
  13. */
  14.  
  15. PARSE ARG zpPort        /* Get ARexx port name */
  16. ADDRESS VALUE zpPort    /* and address this port. */
  17. OPTIONS RESULTS         /* We expect results. */
  18.  
  19. whichlevel              /* Where are we? */
  20. IF (RESULT ~= "BOARDMENU") THEN
  21.     boardmenu           /* Step into board menu. */
  22.  
  23. jumptonew down  /* Find next board below with new messages. */
  24. IF (RC) THEN    /* RC = 1 only if such a board B is found. */
  25.     enterboard  /* Step into board B. */
  26. ELSE
  27.     requestnotify 'No more new messages!'
  28.  
  29. /* EOF */
  30.